Column

Chart A

ny_noaa_tidy %>%
  mutate (text_label = str_c("Date: ", date))%>%
  plot_ly(
    x= ~tmin, y = ~tmax, color = ~name,
    type = "scatter", mode = "markers", text = ~text_label
  )

Column

Chart B

ny_noaa_tidy%>%
  plot_ly(
    y = ~tmax, color = ~name,
    type = "box"
  )

Chart C

ny_noaa_tidy%>%
  count(name)%>%
  plot_ly(
    x = ~name, y= ~n, 
    type = "bar")